ocr: Forml ate - HX Objact: (General) Proc: (declarations) < Pption Explicit Function FungumVector(A() As Single, MaxI Ae Integer) Ae Single Dam SumVector Aa Bingle.. As Integer BumVector = 0 1 - - - - - For I - : 1 To MaxI BEPXHAA rpanaita HHnerca onperenneTCATepe RABACNEM apryMeHTON npoue RYPu SumVector = Sumvector + A(I) Next I FunsumVector 1 Bumvector / MaxI INERI eYnrtns HPMCBANBAETCA ERTHCCHHO aHavenne End Funotion a - AlahammRQ! Private Sub Form.clickt) 3001 1UC - Static X(5) Ae Singl, Mediumx As Single 150 X(1) = 1 X(2) - a 2 il - - - HTT - - - do A ob * X(3) : 3 - grgan 931 ayH X(4). a - m ...
